home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGSCAL / TPAINT2.LZH / LOADSAVE.LIB < prev    next >
Text File  |  1986-03-15  |  2KB  |  48 lines
  1.  
  2.         (* ********************************************************* *)
  3.         (*                                                           *)
  4.         (*                     LOADSAVE.LIB                          *)
  5.         (*                                                           *)
  6.         (*  Procedures to Save and Load Screens using Turbo Pascal   *)
  7.         (*                                                           *)
  8.         (*                    (c)     Donald L. Pavia                *)
  9.         (*                            Department of Chemistry        *)
  10.         (*     March 1986             Western Washington University  *)
  11.         (*                            Bellingham, Washington 98225   *)
  12.         (*                                                           *)
  13.         (* ********************************************************* *)
  14.  
  15. {============================================================================}
  16.  
  17. type  str255 = string[255];
  18.       ScreenType = array[0..16383] of byte;
  19.       ScreenFile = file of ScreenType;
  20.  
  21. var   Offset : byte;
  22.       Screen : ScreenType absolute $B800:$0000;
  23. {-------------------------------------------------------}
  24. procedure SaveScreen (FileName : str255);
  25.  
  26.   var  FileToSave : ScreenFile;
  27.  
  28.   begin
  29.        assign  (FileToSave,FileName);
  30.        rewrite (FileToSave);
  31.        write   (FileToSave,Screen);
  32.        close   (FileToSave);
  33.   end;
  34. {--------------------------------------------------------}
  35. procedure LoadScreen (FileName : str255);
  36.  
  37. var  DisplayFile : ScreenFile;
  38.  
  39. begin
  40.      assign (DisplayFile,FileName);
  41.      reset  (DisplayFile);
  42.      read   (DisplayFile,Screen);
  43.      close  (DisplayFile);
  44. end;
  45. {============================================================================}
  46.  
  47.  
  48.